home *** CD-ROM | disk | FTP | other *** search
CLISP byte-compiled Lisp program | 1993-06-05 | 22.9 KB | 548 lines |
- (SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.))
- #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "LISP")
- #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D4 36 01 2F FF 19 01)
- (DOSEQ DOHASH *DEFAULT-TIME-ZONE* DEFAULT-DIRECTORY DIR)
- )
- #Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SYSTEM")
- #Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- COPY-SYMBOL REMOVE-OLD-DEFINITIONS
- #Y(COPY-SYMBOL
- #47Y(00 01 00 01 00 08 39 01 AA 6A A0 69 F3 8A 02 1C AB 84 53 06 A8 AC 69
- 51 2F 56 AB 84 54 06 A8 96 56 14 30 96 A8 AC 6A 9F 69 C7 30 9B 15 19
- 03
- ) ) )
- #Y(#:TOP-LEVEL-FORM-5
- #26Y(00 00 00 00 00 01 00 29 01 BE 0B 00 00 D5 2D 02 D5 A9 65 03 01 30 96 BF
- 19 02
- )
- 0. GENTEMP REMOVE-OLD-DEFINITIONS
- #Y(GENTEMP
- #55Y(00 00 00 02 00 0C 37 02 02 BF EC 37 01 07 0E 02 EB 1A 02 16 02 61 00
- 00 30 AB 0C 00 00 AA 61 00 00 36 0B C1 EE 74 05 69 8A 6B 02 13 AA 2F
- FC 3E 02 89 00 5F 93 19 05
- )
- NIL "T" *PACKAGE* 10.
- ) )
- #Y(#:TOP-LEVEL-FORM-6
- #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) DO-SYMBOLS
- REMOVE-OLD-DEFINITIONS MACRO
- #Y(DO-SYMBOLS
- #141Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 80 5E 94 54 53 70 95
- 54 53 54 1B 80 58 C0 14 96 54 53 54 54 1B 80 56 00 14 97 54 71 A8
- 5B AF 2F 64 3E 02 89 00 80 4F 00 EA 36 01 6A A4 D8 5B D9 AB B1 73
- 02 73 01 D9 B3 C4 72 73 01 AF B5 DB DC DD B9 73 01 B5 B7 6B 02 20
- 6B 02 1F 73 02 B2 73 03 B5 73 03 6B 02 20 6B 02 1F 73 03 59 03 19
- 0A AA 2D 01 19 03 95 54 53 54 53 1A FF A1 96 54 53 54 54 53 1A FF
- A2 D7 93 72 59 01 1A FF AA
- )
- 2. MACRO-CALL-ERROR *PACKAGE* DECLARE BLOCK LET (NIL) MAP-SYMBOLS
- FUNCTION LAMBDA
- ) )
- #Y(#:TOP-LEVEL-FORM-7
- #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01)
- DO-EXTERNAL-SYMBOLS REMOVE-OLD-DEFINITIONS MACRO
- #Y(DO-EXTERNAL-SYMBOLS
- #141Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 80 5E 94 54 53 70 95
- 54 53 54 1B 80 58 C0 14 96 54 53 54 54 1B 80 56 00 14 97 54 71 A8
- 5B AF 2F 64 3E 02 89 00 80 4F 00 EA 36 01 6A A4 D8 5B D9 AB B1 73
- 02 73 01 D9 B3 C4 72 73 01 AF B5 DB DC DD B9 73 01 B5 B7 6B 02 20
- 6B 02 1F 73 02 B2 73 03 B5 73 03 6B 02 20 6B 02 1F 73 03 59 03 19
- 0A AA 2D 01 19 03 95 54 53 54 53 1A FF A1 96 54 53 54 54 53 1A FF
- A2 D7 93 72 59 01 1A FF AA
- )
- 2. MACRO-CALL-ERROR *PACKAGE* DECLARE BLOCK LET (NIL)
- MAP-EXTERNAL-SYMBOLS FUNCTION LAMBDA
- ) )
- #Y(#:TOP-LEVEL-FORM-8
- #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) DO-ALL-SYMBOLS
- REMOVE-OLD-DEFINITIONS MACRO
- #Y(DO-ALL-SYMBOLS
- #105Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 80 44 94 54 53 70 95
- 54 53 54 1B 3F 00 14 96 54 71 A8 5B AE 2F 64 3E 02 89 00 38 00 EA
- D7 5B D8 AF C3 72 73 01 AC B1 DA DB DC B5 73 01 B2 B4 6B 02 20 6B
- 02 1F 73 02 73 02 B2 73 03 6B 02 20 6B 02 1F 59 03 19 08 AA 2D 01
- 19 03 95 54 53 54 53 1A FF BA D6 93 72 59 01 1A 42
- )
- 2. MACRO-CALL-ERROR DECLARE BLOCK LET (NIL) MAP-ALL-SYMBOLS FUNCTION
- LAMBDA
- ) )
- #Y(#:TOP-LEVEL-FORM-9
- #20Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 04 D5 5B 2F 56 BF 19 01)
- (SPECIAL *MODULES*) *MODULES*
- )
- #Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- PROVIDE REMOVE-OLD-DEFINITIONS
- #Y(PROVIDE #20Y(00 01 00 00 00 02 A9 69 4E 63 00 D5 36 02 2F E0 0F 00 19 02)
- *MODULES* #.#'STRING=
- ) )
- #Y(#:TOP-LEVEL-FORM-11 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- REQUIRE REMOVE-OLD-DEFINITIONS
- #Y(REQUIRE
- #48Y(00 01 00 01 00 08 38 01 14 39 02 AB 69 4E 63 00 D5 36 02 83 DC 12 89
- 00 04 AB 78 0D 02 94 1F 0B 90 02 AB 31 00 17 19 04 00 19 04 AA 2D 02
- 19 04
- )
- *MODULES* #.#'STRING-EQUAL LOAD
- ) )
- #Y(#:TOP-LEVEL-FORM-12
- #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
- 19 01
- )
- BOOLE-CLR "~S redefines the constant ~S. Its old value was ~S."
- (DEFCONSTANT BOOLE-CLR 0.) WARN 0.
- )
- #Y(#:TOP-LEVEL-FORM-13
- #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
- 19 01
- )
- BOOLE-SET "~S redefines the constant ~S. Its old value was ~S."
- (DEFCONSTANT BOOLE-SET 15.) WARN 15.
- )
- #Y(#:TOP-LEVEL-FORM-14
- #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
- 19 01
- )
- BOOLE-1 "~S redefines the constant ~S. Its old value was ~S."
- (DEFCONSTANT BOOLE-1 10.) WARN 10.
- )
- #Y(#:TOP-LEVEL-FORM-15
- #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
- 19 01
- )
- BOOLE-2 "~S redefines the constant ~S. Its old value was ~S."
- (DEFCONSTANT BOOLE-2 12.) WARN 12.
- )
- #Y(#:TOP-LEVEL-FORM-16
- #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
- 19 01
- )
- BOOLE-C1 "~S redefines the constant ~S. Its old value was ~S."
- (DEFCONSTANT BOOLE-C1 5.) WARN 5.
- )
- #Y(#:TOP-LEVEL-FORM-17
- #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
- 19 01
- )
- BOOLE-C2 "~S redefines the constant ~S. Its old value was ~S."
- (DEFCONSTANT BOOLE-C2 3.) WARN 3.
- )
- #Y(#:TOP-LEVEL-FORM-18
- #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
- 19 01
- )
- BOOLE-AND "~S redefines the constant ~S. Its old value was ~S."
- (DEFCONSTANT BOOLE-AND 8.) WARN 8.
- )
- #Y(#:TOP-LEVEL-FORM-19
- #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
- 19 01
- )
- BOOLE-IOR "~S redefines the constant ~S. Its old value was ~S."
- (DEFCONSTANT BOOLE-IOR 14.) WARN 14.
- )
- #Y(#:TOP-LEVEL-FORM-20
- #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
- 19 01
- )
- BOOLE-XOR "~S redefines the constant ~S. Its old value was ~S."
- (DEFCONSTANT BOOLE-XOR 6.) WARN 6.
- )
- #Y(#:TOP-LEVEL-FORM-21
- #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
- 19 01
- )
- BOOLE-EQV "~S redefines the constant ~S. Its old value was ~S."
- (DEFCONSTANT BOOLE-EQV 9.) WARN 9.
- )
- #Y(#:TOP-LEVEL-FORM-22
- #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
- 19 01
- )
- BOOLE-NAND "~S redefines the constant ~S. Its old value was ~S."
- (DEFCONSTANT BOOLE-NAND 7.) WARN 7.
- )
- #Y(#:TOP-LEVEL-FORM-23
- #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
- 19 01
- )
- BOOLE-NOR "~S redefines the constant ~S. Its old value was ~S."
- (DEFCONSTANT BOOLE-NOR 1.) WARN 1.
- )
- #Y(#:TOP-LEVEL-FORM-24
- #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
- 19 01
- )
- BOOLE-ANDC1 "~S redefines the constant ~S. Its old value was ~S."
- (DEFCONSTANT BOOLE-ANDC1 4.) WARN 4.
- )
- #Y(#:TOP-LEVEL-FORM-25
- #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
- 19 01
- )
- BOOLE-ANDC2 "~S redefines the constant ~S. Its old value was ~S."
- (DEFCONSTANT BOOLE-ANDC2 2.) WARN 2.
- )
- #Y(#:TOP-LEVEL-FORM-26
- #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
- 19 01
- )
- BOOLE-ORC1 "~S redefines the constant ~S. Its old value was ~S."
- (DEFCONSTANT BOOLE-ORC1 13.) WARN 13.
- )
- #Y(#:TOP-LEVEL-FORM-27
- #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
- 19 01
- )
- BOOLE-ORC2 "~S redefines the constant ~S. Its old value was ~S."
- (DEFCONSTANT BOOLE-ORC2 11.) WARN 11.
- )
- #Y(#:TOP-LEVEL-FORM-28 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- MAKE-BYTE REMOVE-OLD-DEFINITIONS
- #Y(MAKE-BYTE
- #20Y(00 00 00 00 80 1B 00 02 00 00 39 02 39 01 AA AA 30 E9 19 03) :SIZE
- :POSITION
- ) )
- #Y(#:TOP-LEVEL-FORM-29
- #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
- 19 01
- )
- CHAR-CODE-LIMIT "~S redefines the constant ~S. Its old value was ~S."
- (DEFCONSTANT CHAR-CODE-LIMIT 256.) WARN 256.
- )
- #Y(#:TOP-LEVEL-FORM-30
- #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
- 19 01
- )
- CHAR-FONT-LIMIT "~S redefines the constant ~S. Its old value was ~S."
- (DEFCONSTANT CHAR-FONT-LIMIT 16.) WARN 16.
- )
- #Y(#:TOP-LEVEL-FORM-31
- #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
- 19 01
- )
- CHAR-BITS-LIMIT "~S redefines the constant ~S. Its old value was ~S."
- (DEFCONSTANT CHAR-BITS-LIMIT 16.) WARN 16.
- )
- #Y(#:TOP-LEVEL-FORM-32
- #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
- 19 01
- )
- CHAR-CONTROL-BIT "~S redefines the constant ~S. Its old value was ~S."
- (DEFCONSTANT CHAR-CONTROL-BIT 1.) WARN 1.
- )
- #Y(#:TOP-LEVEL-FORM-33
- #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
- 19 01
- )
- CHAR-META-BIT "~S redefines the constant ~S. Its old value was ~S."
- (DEFCONSTANT CHAR-META-BIT 2.) WARN 2.
- )
- #Y(#:TOP-LEVEL-FORM-34
- #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
- 19 01
- )
- CHAR-SUPER-BIT "~S redefines the constant ~S. Its old value was ~S."
- (DEFCONSTANT CHAR-SUPER-BIT 4.) WARN 4.
- )
- #Y(#:TOP-LEVEL-FORM-35
- #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
- 19 01
- )
- CHAR-HYPER-BIT "~S redefines the constant ~S. Its old value was ~S."
- (DEFCONSTANT CHAR-HYPER-BIT 8.) WARN 8.
- )
- #Y(#:TOP-LEVEL-FORM-36
- #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) DOSEQ
- REMOVE-OLD-DEFINITIONS MACRO
- #Y(DOSEQ
- #121Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 80 5B 94 54 53 70 95
- 54 53 54 70 96 54 53 54 54 70 97 54 71 A8 5B AF 2F 64 3E 02 89 00
- 80 43 00 EA 36 01 6A A4 D7 5B D8 AB B1 73 02 73 01 D8 B3 C3 72 73
- 01 AF B5 DA 5B DB DC BA 73 01 B6 DD A3 72 73 01 6B 02 20 6B 02 1F
- 73 02 B3 73 04 B5 73 03 6B 02 20 6B 02 1F 73 03 59 03 19 0A AA 2D
- 01 19 03 D6 93 72 59 01 1A FF B6
- )
- 2. MACRO-CALL-ERROR DECLARE BLOCK LET (NIL) MAP FUNCTION LAMBDA TAGBODY
- ) )
- #Y(#:TOP-LEVEL-FORM-37 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- MEMBER1 REMOVE-OLD-DEFINITIONS
- #Y(MEMBER1
- #36Y(00 02 00 00 81 00 00 03 00 00 37 01 07 74 01 8A 01 05 1A 05 89 01 02
- C1 EB D8 AA B0 6E 01 AF 99 35 02 19 07
- )
- :TEST :TEST-NOT :KEY #.#'IDENTITY #.#'MEMBER
- ) )
- #Y(#:TOP-LEVEL-FORM-38
- #26Y(00 00 00 00 00 01 D4 2D 01 D4 00 29 01 A8 2A 02 01 0B 00 00 EA 30 96 BE
- 19 01
- )
- UNION REMOVE-OLD-DEFINITIONS
- #Y(UNION
- #52Y(00 02 00 00 81 00 00 03 00 01 AE 83 B6 18 90 04 8B 07 AF 99 35 02 1B
- 11 8B 06 61 00 00 8C 08 B0 9A 35 02 55 19 07 97 19 07 61 00 00 8C 07
- AF 99 35 02 19 07
- )
- NIL :TEST :TEST-NOT :KEY MEMBER1
- ) )
- #Y(#:TOP-LEVEL-FORM-39
- #26Y(00 00 00 00 00 01 D4 2D 01 D4 00 29 01 A8 2A 02 01 0B 00 00 EA 30 96 BE
- 19 01
- )
- NUNION REMOVE-OLD-DEFINITIONS
- #Y(NUNION
- #52Y(00 02 00 00 81 00 00 03 00 01 AE 83 B6 18 90 04 8B 07 AF 99 35 02 1B
- 11 AE 61 00 00 8C 08 B0 9A 6F 02 2F D2 19 07 97 19 07 61 00 00 8C 07
- AF 99 35 02 19 07
- )
- NIL :TEST :TEST-NOT :KEY MEMBER1
- ) )
- #Y(#:TOP-LEVEL-FORM-40
- #26Y(00 00 00 00 00 01 D4 2D 01 D4 00 29 01 A8 2A 02 01 0B 00 00 EA 30 96 BE
- 19 01
- )
- INTERSECTION REMOVE-OLD-DEFINITIONS
- #Y(INTERSECTION
- #52Y(00 02 00 00 81 00 00 03 00 01 AE 83 B6 15 90 04 8B 07 AF 99 35 02 1B
- 0E 61 00 00 8C 07 AF 99 35 02 19 07 00 19 07 8B 06 61 00 00 8C 08 B0
- 9A 35 02 55 19 07
- )
- NIL :TEST :TEST-NOT :KEY MEMBER1
- ) )
- #Y(#:TOP-LEVEL-FORM-41
- #26Y(00 00 00 00 00 01 D4 2D 01 D4 00 29 01 A8 2A 02 01 0B 00 00 EA 30 96 BE
- 19 01
- )
- NINTERSECTION REMOVE-OLD-DEFINITIONS
- #Y(NINTERSECTION
- #52Y(00 02 00 00 81 00 00 03 00 01 AE 83 B6 15 90 04 8B 07 AF 99 35 02 1B
- 0E 61 00 00 8C 07 AF 99 35 02 19 07 00 19 07 AE 61 00 00 8C 08 B0 9A
- 6F 02 2F D2 19 07
- )
- NIL :TEST :TEST-NOT :KEY MEMBER1
- ) )
- #Y(#:TOP-LEVEL-FORM-42
- #26Y(00 00 00 00 00 01 D4 2D 01 D4 00 29 01 A8 2A 02 01 0B 00 00 EA 30 96 BE
- 19 01
- )
- SET-DIFFERENCE REMOVE-OLD-DEFINITIONS
- #Y(SET-DIFFERENCE
- #52Y(00 02 00 00 81 00 00 03 00 01 AE 83 B6 15 90 04 8B 07 AF 99 35 02 1C
- 0E 61 00 00 8C 07 AF 99 35 02 19 07 00 19 07 8B 06 61 00 00 8C 08 B0
- 9A 35 02 55 19 07
- )
- NIL :TEST :TEST-NOT :KEY MEMBER1
- ) )
- #Y(#:TOP-LEVEL-FORM-43
- #26Y(00 00 00 00 00 01 D4 2D 01 D4 00 29 01 A8 2A 02 01 0B 00 00 EA 30 96 BE
- 19 01
- )
- NSET-DIFFERENCE REMOVE-OLD-DEFINITIONS
- #Y(NSET-DIFFERENCE
- #52Y(00 02 00 00 81 00 00 03 00 01 AE 83 B6 15 90 04 8B 07 AF 99 35 02 1C
- 0E 61 00 00 8C 07 AF 99 35 02 19 07 00 19 07 AE 61 00 00 8C 08 B0 9A
- 6F 02 2F D2 19 07
- )
- NIL :TEST :TEST-NOT :KEY MEMBER1
- ) )
- #Y(#:TOP-LEVEL-FORM-44 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- SET-EXCLUSIVE-OR REMOVE-OLD-DEFINITIONS
- #Y(SET-EXCLUSIVE-OR
- #29Y(00 02 00 00 81 00 00 03 00 00 90 03 AF AF 99 6F 02 90 03 AF B1 9A 6F
- 02 31 02 20 19 07
- )
- :TEST :TEST-NOT :KEY SET-DIFFERENCE
- ) )
- #Y(#:TOP-LEVEL-FORM-45 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- NSET-EXCLUSIVE-OR REMOVE-OLD-DEFINITIONS
- #Y(NSET-EXCLUSIVE-OR
- #29Y(00 02 00 00 81 00 00 03 00 00 90 03 AF AF 99 6F 02 90 04 AF B1 9A 6F
- 02 31 02 21 19 07
- )
- :TEST :TEST-NOT :KEY SET-DIFFERENCE NSET-DIFFERENCE
- ) )
- #Y(#:TOP-LEVEL-FORM-46 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- SUBSETP REMOVE-OLD-DEFINITIONS
- #Y(SUBSETP
- #35Y(00 02 00 00 81 00 00 03 00 00 AE 1A 0F 00 19 08 90 03 8B 01 B0 9A 35
- 02 1C 73 7A 00 A8 84 B6 70 02 19 08
- )
- :TEST :TEST-NOT :KEY MEMBER1
- ) )
- #Y(#:TOP-LEVEL-FORM-47
- #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) DOHASH
- REMOVE-OLD-DEFINITIONS MACRO
- #Y(DOHASH
- #132Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 80 66 94 54 53 70 95
- 54 53 54 70 96 54 53 54 54 70 97 54 53 54 54 54 70 98 54 71 A8 5B
- B0 2F 64 3E 02 89 00 80 47 00 EA 36 01 6A A4 D7 5B D8 AB B1 73 02
- 73 01 D8 B4 C3 72 B4 C4 72 73 02 AF B6 B6 DB DC DD BB BB 73 02 B6
- DE A3 72 73 01 6B 02 20 6B 02 1F 73 02 B3 73 03 B6 73 04 6B 02 20
- 6B 02 1F 73 03 59 03 19 0B AA 2D 01 19 03 D6 93 72 59 01 1A FF B2
- )
- 2. MACRO-CALL-ERROR DECLARE BLOCK LET (NIL) (NIL) MAPHASH FUNCTION LAMBDA
- TAGBODY
- ) )
- #Y(#:TOP-LEVEL-FORM-48 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- STRING-TRIM REMOVE-OLD-DEFINITIONS
- #Y(STRING-TRIM #13Y(00 02 00 00 00 03 AA AB AB 2F 47 19 03))
- )
- #Y(#:TOP-LEVEL-FORM-49 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- STRING-LEFT-TRIM REMOVE-OLD-DEFINITIONS
- #Y(STRING-LEFT-TRIM #13Y(00 02 00 00 00 03 AA 5B AB 2F 47 19 03))
- )
- #Y(#:TOP-LEVEL-FORM-50 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- STRING-RIGHT-TRIM REMOVE-OLD-DEFINITIONS
- #Y(STRING-RIGHT-TRIM #13Y(00 02 00 00 00 03 5B AB AB 2F 47 19 03))
- )
- #Y(#:TOP-LEVEL-FORM-51 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- %TIME REMOVE-OLD-DEFINITIONS
- #Y(%TIME
- #210Y(00 12 00 00 00 00 BA D4 D4 6A E9 BB 6A EF B2 D4 D4 6A E9 B3 6A EF
- 6B 01 34 B9 D4 D4 6A E9 BA 6A EF B1 D4 D4 6A E9 B2 6A EF 6B 01 34
- B8 D4 D4 6A E9 B9 6A EF B0 D4 D4 6A E9 B1 6A EF 6B 01 34 B7 D5 D5
- 6A E9 B8 6A EF AF D5 D5 6A E9 B0 6A EF 6B 01 34 B6 AE 6B 01 34 36
- 01 2F 90 D6 36 03 2F 8E AC D7 6B 01 36 36 01 6A C3 36 0C 2F 85 D8
- 36 03 2F 8E 36 01 2F 90 D9 36 03 2F 8E AB D7 6B 01 36 36 01 6A C3
- 36 0C 2F 85 DA 36 03 2F 8E 36 01 2F 90 DB 36 03 2F 8E A9 36 0C 2F
- 85 DC 36 03 2F 8E A8 85 A7 07 AA 85 A7 03 00 19 18 36 01 2F 90 DD
- 36 03 2F 8E A8 36 0C 2F 85 DE 36 03 2F 8E AA D7 6B 01 36 36 01 6A
- C3 36 0C 2F 85 DF 36 03 2F 8E 19 18
- )
- 16. 24. "Real time: " #.INTERNAL-TIME-UNITS-PER-SECOND " sec."
- "Run time: " " sec." "Space: " " Bytes" "GC: " ", GC time: " " sec."
- ) )
- #Y(#:TOP-LEVEL-FORM-52 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- SLEEP REMOVE-OLD-DEFINITIONS
- #Y(SLEEP
- #44Y(00 01 00 00 00 02 A9 86 2F 1D A9 85 3D 19 A9 85 A8 15 A9 D4 87 01 2E
- 0D A9 D5 6B 02 35 36 01 6A CB 2F F1 19 02 1A 7E D6 D7 AB 5A 02
- )
- #.(FLOOR (EXPT 2. 31.) INTERNAL-TIME-UNITS-PER-SECOND)
- #.INTERNAL-TIME-UNITS-PER-SECOND
- "~S: argument ~S should be a nonnegative number" SLEEP
- ) )
- #Y(#:TOP-LEVEL-FORM-53 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- UTAG REMOVE-OLD-DEFINITIONS
- #Y(UTAG
- #32Y(00 01 00 00 00 02 D4 D5 AB 6B 02 35 AB D6 6A C8 AC D7 6A C8 6B 00 34
- AD D8 6A C8 31 05 33 19 02
- )
- -693901. 365. 4. 100. 400.
- ) )
- #Y(#:TOP-LEVEL-FORM-54 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- JAHR&TAG REMOVE-OLD-DEFINITIONS
- #Y(JAHR&TAG
- #43Y(00 01 00 00 00 02 D4 D5 AB 6B 02 33 D6 6A C8 6B 02 33 A8 67 03 AB A9
- 88 01 2D 06 7D 01 14 2D 03 EA A9 AC AA 6B 01 34 3C 02 19 04
- )
- 1900. -58. #10r146097/400 UTAG
- ) )
- #Y(#:TOP-LEVEL-FORM-55 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- NONE-SOMMERZEIT-P REMOVE-OLD-DEFINITIONS
- #Y(NONE-SOMMERZEIT-P #9Y(00 03 00 00 00 04 00 19 04))
- )
- #Y(#:TOP-LEVEL-FORM-56 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- MET-SOMMERZEIT-P REMOVE-OLD-DEFINITIONS
- #Y(MET-SOMMERZEIT-P
- #43Y(00 03 00 00 00 04 D4 AC D5 31 02 2F 1E 1B D6 AB 6B 02 35 AA 6B 02 33
- D7 D8 AE 31 02 33 57 14 8B 00 AA 8C 02 31 02 2F 19 06 19 04
- )
- 1980. 2000. 24.
- #((698. . 5065.) (674. . 5041.) (650. . 5017.) (626. . 4993.)
- (578. . 5113.) (722. . 5089.) (698. . 5065.) (674. . 5041.)
- (626. . 4993.) (602. . 4969.) (578. . 5113.) (722. . 5089.)
- (674. . 5041.) (650. . 5017.) (626. . 4993.) (602. . 4969.)
- (722. . 5089.) (698. . 5065.) (674. . 5041.) (650. . 5017.)
- (602. . 4969.)
- )
- -1980.
- ) )
- #Y(#:TOP-LEVEL-FORM-57
- #20Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 04 D5 D6 2F 56 BF 19 01)
- (SPECIAL *DEFAULT-TIME-ZONE*) *DEFAULT-TIME-ZONE* -1.
- )
- #Y(#:TOP-LEVEL-FORM-58
- #21Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 05 D5 90 02 2F 56 BF 19 01)
- (SPECIAL *DEFAULT-DST-CHECK*) *DEFAULT-DST-CHECK* MET-SOMMERZEIT-P
- )
- #Y(#:TOP-LEVEL-FORM-59
- #23Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 D7 2D 01 D7 D8 30 96 C1 19 01)
- ENCODE-UNIVERSAL-TIME REMOVE-OLD-DEFINITIONS
- #Y(ENCODE-UNIVERSAL-TIME
- #280Y(00 06 00 01 00 00 39 01 01 04 AE 86 35 80 FF D4 AF D5 88 02 2F 18
- 2C 02 3E 06 B4 D7 AA D8 B8 6B 02 34 D7 6A C9 6B 02 35 79 02 33 0C
- 16 06 D9 AF 88 01 2F 80 D9 AF 86 35 80 D4 DA B0 DB 88 02 2F 80 CC
- AF DC 87 01 2D 80 B0 98 EC C8 14 B0 79 02 33 03 B0 86 35 80 B7 DA
- B1 88 01 2F 80 B0 8E 08 DF 97 57 14 79 02 33 01 14 AB 67 0C 79 02
- 33 00 AB 24 0D 80 8C A8 8D 03 2D 0C 14 88 01 2D 80 8E B1 86 35 80
- 89 D4 B2 E2 88 02 2F 80 81 B2 86 35 80 7C D4 B3 E3 88 02 2F 80 74
- B3 86 35 80 6F D4 B4 E3 88 02 2F 80 67 89 05 12 63 10 63 11 AC AC
- B5 34 03 1B 80 54 BE 14 79 01 34 05 AD 86 38 04 AD 78 C4 05 AD 85
- 35 0D AD 86 37 80 41 E6 AE 6B 02 35 86 35 39 E7 AE DB 88 02 2F 32
- B3 E9 B4 E9 B5 B2 5D 16 AF 6B 02 35 6B 03 33 6B 02 35 6B 02 33 6B
- 02 35 31 02 33 19 0C AE 78 AC 02 C7 1A FF 4B A9 DF AD 30 AB 57 1A
- FF 70 C4 1A FF A9 E8 B1 B1 B1 B5 B7 B9 B4 5A 07
- )
- 0. 99. GET-DECODED-TIME 100. 50. 1900. 1. 12. 3. 9. -3.
- #1=#(0. 31. 61. 92. 122. 153. 184. 214. 245. 275. 306. 337.) UTAG 11. 23.
- 59. *DEFAULT-TIME-ZONE* *DEFAULT-DST-CHECK* 3600. -12.
- "incorrect date: ~S.~S.~S, ~Sh~Sm~Ss, time zone ~S" 60. 24.
- )
- DECODE-UNIVERSAL-TIME
- #Y(DECODE-UNIVERSAL-TIME
- #173Y(00 01 00 01 00 08 39 01 01 02 89 03 80 8C 0E 00 ED AC D5 AD 6B 02
- 35 36 01 6A CB 6B 01 34 A8 D5 6A C8 D6 30 C8 3E 02 A9 2D 03 3E 02
- 63 04 AA AA AD 34 03 16 05 EB AB 89 02 80 66 C4 14 79 01 34 00 AC
- D5 AA 6B 02 35 36 01 6A CB 6B 01 34 A8 DB 30 C8 3E 02 A9 DB 30 C8
- 3E 02 A9 D6 30 C8 3E 02 A9 2D 03 3E 02 DC DD AA 6B 02 35 6B 02 33
- DE 6A C8 A9 DF 94 57 14 6B 01 34 6A AB A9 E0 87 01 2D 24 E2 AA 79
- 02 33 01 7C 03 B0 AF AE AB AD B0 B3 E3 6A CC BB 5E 16 3C 09 19 10
- 74 01 95 EA 1A FF A0 C3 1A FF 97 E1 AA 79 02 33 01 1A 5C
- )
- *DEFAULT-TIME-ZONE* 3600. 24. JAHR&TAG *DEFAULT-DST-CHECK* 1. 0. 60. 2.
- 5. 153. #1# 10. 3. -9. 7.
- ) )
- #Y(#:TOP-LEVEL-FORM-60 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- GET-DECODED-TIME REMOVE-OLD-DEFINITIONS
- #Y(GET-DECODED-TIME #12Y(00 00 00 00 00 01 69 EE 2D 00 19 01)
- DECODE-UNIVERSAL-TIME
- ) )
- #Y(#:TOP-LEVEL-FORM-61 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- CONCAT-PNAMES REMOVE-OLD-DEFINITIONS
- #Y(CONCAT-PNAMES
- #45Y(00 02 00 00 00 03 AA 69 4E AA 69 4E 6B 02 13 A8 6A 63 86 A7 07 A8 D4
- 69 34 23 01 07 A8 36 01 2F FC 19 04 A8 D6 36 01 6A 61 63 03 1A 72
- )
- 0. #\: 1. *KEYWORD-PACKAGE*
- ) )
- #Y(#:TOP-LEVEL-FORM-62 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- DEFAULT-DIRECTORY REMOVE-OLD-DEFINITIONS
- #Y(DEFAULT-DIRECTORY #12Y(00 00 00 00 00 01 36 01 30 21 19 01))
- )
- #Y(#:TOP-LEVEL-FORM-63
- #26Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 30 97 BE
- 19 01
- )
- *DATE-FORMAT* "~S redefines the constant ~S. Its old value was ~S."
- (DEFCONSTANT *DATE-FORMAT*
- #1="~1{~5@*~D/~4@*~D/~3@*~D ~2@*~2,'0D.~1@*~2,'0D.~0@*~2,'0D~:}"
- )
- WARN #1#
- )
- #Y(#:TOP-LEVEL-FORM-64 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
- DIR REMOVE-OLD-DEFINITIONS
- #Y(DIR
- #28Y(00 00 00 01 00 07 37 01 02 BE EB A9 85 34 06 A9 BF 32 3A 19 02 D5 AA
- 31 00 19 1A 76
- )
- ("*.*\\" "*.*")
- #Y(LISP::DIR-ONEDIR
- #38Y(00 01 00 00 00 02 A9 5C 6A 20 D4 A9 87 00 26 0F 5C D9 AA D6 C4 14
- 36 02 6A 83 2B 03 04 19 03 5C D5 AA D6 C1 1A 6F
- )
- #.#'ATOM "~{~%~A~}" #.#'STRING< #.#'NAMESTRING FORMAT
- #.(CONCATENATE 'STRING "~:{~%~0@*~A~40T~3@*~7D~52T~2@*~21<"
- *DATE-FORMAT* "~>~}"
- )
- #Y(LISP::DIR-ONEDIR-1 #14Y(00 01 00 00 00 02 8B 01 36 01 30 1A 19 02))
- ) ) )